home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Essentials / MacApp Documentation / MacApp.TECH$ Archives / 1990 / Jul 90 / MacApp.Tech$ 7⁄13⁄90 / 1582-Re Page Setup Defaul-Jul90 < prev    next >
Encoding:
Text File  |  1991-03-06  |  1.1 KB  |  48 lines  |  [TEXT/GEOL]
  1. Item    1574702                         10-July-90        23:24PDT
  2.  
  3. From:   SW0092                          SWD Administrator AB, Sthlm,IDV
  4.  
  5. To:     D2086                           Efficient Field Svc, C Faith,PRT
  6.  
  7. cc:     MACAPP.TECH$                    MacApp Technical
  8.  
  9. Sub:    Re: Page Setup Default Thread
  10.  
  11.  
  12. I did the same as Perry. It seems to work fine. I think I found this in a
  13. document called Learning To Drive that I downloaded some time ago. It gives
  14. some tips on writing printer drivers. I can't remember where I found it on
  15. Applelink.
  16.  
  17.  
  18.  
  19. PROCEDURE TYourPrintHandler.Reset;
  20. TYPE
  21.    TXWord = PACKED RECORD
  22.    CASE INTEGER OF
  23.    0:  (c1, c0: CHAR);
  24.    1:  (b1, b0: SignedByte);
  25.    2:  (f15, f14, f13, f12, f11, f10, f9, f8, f7, f6, f5, f4, f3, f2, f1, f0:
  26. BOOLEAN);
  27.    3:  (i0: INTEGER);
  28.    END;
  29. VAR
  30.    didChange : BOOLEAN;
  31.    aHPrint   : Handle;
  32. BEGIN
  33.    INHERITED Reset;
  34.    aHPrint := fHPrint;
  35.    IF gCouldPrint & (aHPrint<>NIL) THEN
  36.    WITH TXWord(THPrint(aHPrint)^^.prStl.wDev) DO
  37.    IF b1 = 3 THEN
  38.    BEGIN
  39.    aHPrint^^.printX[6]:= 96; { <---  Set maximum print area }
  40.    ValidatePrintRecord(didChange);
  41.    END;
  42. END;
  43.  
  44. Yours
  45.  
  46. Kent Hosselton
  47.  
  48.